//========================================================================
//  SE5 Empire Setup - Jraenar - Captain Kwok's Balance Mod v125+
//========================================================================
//
// Jraenar Imperium
// Rock + Hydrogen, Tyranny, Warriors
//

#include Script_AI_GlobalResearch.txt

//------------------------------------------------------------------------
// Global Constants
//------------------------------------------------------------------------

//------------------------------------------------------------------------
// Global Variables
//------------------------------------------------------------------------

//------------------------------------------------------------------------
// Forward Declarations
//------------------------------------------------------------------------

//------------------------------------------------------------------------
// Main
//------------------------------------------------------------------------
function Main returns boolean
vars
  racial_pts:                long
  research_pts:              long
begin

  // Get our racial trait and starting research points
  set racial_pts := Sys_AI_Setup_Get_Racial_Points_Remaining(sys_long_Player_ID)
  set research_pts := Sys_AI_Setup_Get_Research_Points_Remaining(sys_long_Player_ID)

  // Jraenar setup preferences
  set bool_Race_Uses_Mines                                 := TRUE
  set bool_Race_Uses_Fighters                              := TRUE
  set bool_Race_Uses_Satellites                            := TRUE
  set bool_Race_Uses_Troops                                := TRUE
  set bool_Race_Uses_Weapon_Platforms                      := TRUE
  set bool_Race_Uses_Drones                                := TRUE
  set bool_Race_Uses_Kamikaze_Ships                        := FALSE
  set bool_Race_Uses_Boarding_Ships                        := TRUE
  set bool_Race_Uses_Bombardment_Ships                     := TRUE
  set bool_Race_Uses_Plague_Ships                          := FALSE
  set bool_Race_Uses_Normal_Armor                          := TRUE
  set bool_Race_Uses_Normal_Shields                        := TRUE
  set bool_Race_Uses_Cloaking_Devices                      := TRUE
  set bool_Race_Uses_Master_Computers                      := TRUE

  set bool_Race_Uses_Missile_Weapons                       := TRUE
  set bool_Race_Uses_Energy_Stream_Weapons                 := TRUE
  set bool_Race_Uses_Torpedo_Weapons                       := TRUE
  set bool_Race_Uses_Gravitational_Weapons                 := TRUE

  // Debug output
  call Sys_Debug_Print("Setup", "------------------------")
  call Sys_Debug_Print("Setup", "Racial Trait Selections:")
  call Sys_Debug_Print("Setup", "  - Starting Points = " + Sys_Convert_Long_To_String(racial_pts))

  // AI Assist
  if Sys_Are_We_Computer_Player(sys_long_Player_ID) then
    call Add_Racial_Trait("AI Assist") // 0
  endif

  // Jraenar Racial Traits
  // 2000 Pts
  call Add_Racial_Trait("Propulsion Experts") // 1,000
  call Add_Racial_Trait("Hardy Industrialists") // 1,000
  // 3000 Pts
  call Add_Racial_Trait("Brave") // 500
  call Add_Racial_Trait("Physical Strength") // 500
  // 5000 Pts
  call Add_Racial_Trait("Builders") // 500
  call Add_Racial_Trait("Lucky") // 500
  call Add_Racial_Trait("Natural Merchants") // 1,000

  // Debug output
  call Sys_Debug_Print("Setup", "----------------------")
  call Sys_Debug_Print("Setup", "Technology Selections:")
  call Sys_Debug_Print("Setup", "  - Starting Points = " + Sys_Convert_Long_To_String(research_pts))
  
  // Jraenar starting technologies

  // Jraenar low tech start (5,000 Default)
  if (research_pts > 0) and (research_pts <= 5000) then
    call Add_Tech_Area("Sensors", 3, TRUE, FALSE) // 5,000
  endif

  // Jraenar medium tech start (50,000 Default; 25,000 = High Cost; 100,000 = Low Cost)
  if (research_pts > 5000) and (research_pts <= 100000) then
    call Add_Tech_Area("Physics", 2, TRUE, FALSE) // 12,000
    // Sub-Total 12,000 (12,000)
    call Add_Tech_Area("Small Ship Construction", 2, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Sensors", 4, TRUE, FALSE) // 9,000
    // Sub-Total 13,000 (25,000)
    call Add_Tech_Area("Ion Engines", 3, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Armor", 3, TRUE, FALSE) // 5,000
    call Add_Tech_Area("Shields", 1, TRUE, FALSE) // 2,000
    // Sub-Total 17,000 (42,000)
    call Add_Tech_Area("Missile Weapons", 3, bool_Race_Uses_Missile_Weapons, FALSE) // 5,000
    call Add_Tech_Area("Energy Stream Weapons", 1, bool_Race_Uses_Energy_Stream_Weapons, FALSE) // 3,000
    // Sub-Total 8,000 (50,000)
    call Add_Tech_Area("Small Ship Construction", 3, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Fighters", 2, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Mines", 1, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Contra-Terrene Engines", 1, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Armor", 4, TRUE, FALSE) // 4,000
    // Sub-Total 28,000 (78,000)
    call Add_Tech_Area("Missile Weapons", 4, bool_Race_Uses_Missile_Weapons, FALSE) // 4,000
    call Add_Tech_Area("Energy Stream Weapons", 3, bool_Race_Uses_Energy_Stream_Weapons, FALSE) // 15,000
    call Add_Tech_Area("Troop Weapons", 2, TRUE, FALSE) // 1,000
    call Add_Tech_Area("Smaller Weapons", 2, TRUE, FALSE) // 2,000
    // Sub-Total 22,000 (100,000)
  endif

  // Jraenar high tech start (500,000 Default; 250,000 = High Cost; 1,000,000 = Low Cost)
  if (research_pts > 100000) then
    call Add_Tech_Area("Ice Planet Colonization", 1, TRUE, FALSE) // 50,000
    call Add_Tech_Area("Gas Giant Colonization", 1, TRUE, FALSE) // 50,000
    // Sub-Total 100,000 (100,000)
    call Add_Tech_Area("Construction", 2, TRUE, FALSE) // 12,000
    call Add_Tech_Area("Military Science", 3, TRUE, FALSE) // 25,000
    call Add_Tech_Area("Physics", 2, TRUE, FALSE) // 12,000
    // Sub-Total 49,000 (149,000)
    call Add_Tech_Area("Repair", 1, TRUE, FALSE) // 1,000
    call Add_Tech_Area("Small Ship Construction", 4, TRUE, FALSE) // 18,000
    call Add_Tech_Area("Medium Ship Construction", 1, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Mines", 1, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Armor", 3, TRUE, FALSE) // 5,000
    call Add_Tech_Area("Shields", 3, TRUE, FALSE) // 12,000
    call Add_Tech_Area("Sensors", 4, TRUE, FALSE) // 9,000
    call Add_Tech_Area("Defense Systems", 2, TRUE, FALSE) // 6,000
    // Sub-Total 61,000 (210,000)
    call Add_Tech_Area("Energy Stream Weapons", 3, bool_Race_Uses_Energy_Stream_Weapons, FALSE) // 18,000
    call Add_Tech_Area("Torpedo Weapons", 5, bool_Race_Uses_Torpedo_Weapons, FALSE) // 15,000
    call Add_Tech_Area("Point-Defense Weapons", 2, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Troop Weapons", 2, TRUE, FALSE) // 1,000
    call Add_Tech_Area("Smaller Weapons", 2, TRUE, FALSE) // 2,000
    // Sub-Total 40,000 (250,000)
    call Add_Tech_Area("Small Ship Construction", 6, TRUE, FALSE) // 22,000
    call Add_Tech_Area("Medium Ship Construction", 6, TRUE, FALSE) // 120,000
    call Add_Tech_Area("Troops", 3, TRUE, FALSE) // 5,000
    call Add_Tech_Area("Fighters", 2, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Ion Engines", 3, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Contra-Terrene Engines", 3, TRUE, FALSE) // 24,000
    call Add_Tech_Area("Stellar Harnessing", 1, TRUE, FALSE) // 2,000
    call Add_Tech_Area("Applied Research", 2, TRUE, FALSE) // 12,000
    call Add_Tech_Area("Medical Treatment", 2, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Minerals Extraction", 3, TRUE, FALSE) // 20,000
    // Sub-Total 231,000 (481,000)
    call Add_Tech_Area("Weapon Mounts", 1, TRUE, FALSE) // 1,000
    call Add_Tech_Area("Ship Weapon Mounts", 5, TRUE, FALSE) // 15,000
    call Add_Tech_Area("Ship Capture", 2, bool_Race_Uses_Boarding_Ships, FALSE) // 3,000
    // Sub-Total 19,000 (500,000)
    call Add_Tech_Area("Astrophysics", 3, TRUE, FALSE) // 30,000
    call Add_Tech_Area("Construction", 3, TRUE, FALSE) // 18,000
    call Add_Tech_Area("Planetary Engineering", 1, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Psychology", 1, TRUE, FALSE) // 3,000
    // Sub-Total 61,000 (561,000)
    call Add_Tech_Area("Large Ship Construction", 3, TRUE, FALSE) // 60,000
    call Add_Tech_Area("Small Base Construction", 4, TRUE, FALSE) // 27,000
    call Add_Tech_Area("Large Base Construction", 1, TRUE, FALSE) // 10,000
    call Add_Tech_Area("Vehicle Systems", 4, TRUE, FALSE) // 27,000
    call Add_Tech_Area("Resupply", 6, TRUE, FALSE) // 20,000
    call Add_Tech_Area("Shields", 6, TRUE, FALSE) // 30,000
    call Add_Tech_Area("Sensors", 8, TRUE, FALSE) // 26,000
    call Add_Tech_Area("Defense Systems", 3, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Cargo", 4, TRUE, FALSE) // 9,000
    call Add_Tech_Area("Storage", 6, TRUE, FALSE) // 20,000
    call Add_Tech_Area("Applied Research", 3, TRUE, FALSE) // 18,000
    call Add_Tech_Area("Advanced Military Science", 2, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Applied Political Science", 2, TRUE, FALSE) // 9,000
    call Add_Tech_Area("Robotics", 1, TRUE, FALSE) // 6,000
    call Add_Tech_Area("Planet Utilization", 3, TRUE, FALSE) // 12,000
    call Add_Tech_Area("Minerals Extraction", 4, TRUE, FALSE) // 16,000
    call Add_Tech_Area("Organics Extraction", 2, TRUE, FALSE) // 4,000
    call Add_Tech_Area("Radioactives Extraction", 3, TRUE, FALSE) // 15,000
    call Add_Tech_Area("Intelligence Services", 3, bool_Intel_Is_Allowed, FALSE) // 15,000
    call Add_Tech_Area("Vehicle Systems", 5, not bool_Intel_Is_Allowed, FALSE) // 15,000
    // Sub-Total 351,000 (912,000)
    call Add_Tech_Area("Energy Stream Weapons", 5, bool_Race_Uses_Energy_Stream_Weapons, FALSE) // 27,000
    call Add_Tech_Area("Torpedo Weapons", 10, bool_Race_Uses_Torpedo_Weapons, FALSE) // 40,000
    call Add_Tech_Area("Gravitational Weapons", 1, bool_Race_Uses_Gravitational_Weapons, FALSE) // 3,000
    call Add_Tech_Area("Troop Weapons", 6, TRUE, FALSE) // 9,000
    call Add_Tech_Area("Smaller Weapons", 3, TRUE, FALSE) // 3,000
    // Sub-Total 82,000 (994,000)
    call Add_Tech_Area("Cultural Studies", 1, TRUE, FALSE) // 3,000
    call Add_Tech_Area("Conservation", 1, TRUE, FALSE) // 2,000
    call Add_Tech_Area("Recreation", 1, TRUE, FALSE) // 1,000
    // Sub-Total 6,000 (1,000,000)
  endif

  // If there are setup points remaining, spend them
  if (Sys_AI_Setup_Get_Research_Points_Remaining(sys_long_Player_ID) > 1000) then
    call AI_Research_Selection()
  endif

  return TRUE
end

//------------------------------------------------------------------------